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-- DisklO.Mesa Edited by Sandman on May 12, 1978 2:11 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE. PageNumber, PageSize], 

AltoFileDefs: FROM "altof iledef s" USING [ 
DISK, BofDA, fillinDA, SN, vDA, vDC], 

DiskDefs: FROM "diskdefs" USING [ 

CB, CBinit, CBptr, CBZ, CBZptr, DA, DC. DDC , DiskPageDesc, DiskRequest, 
DL, DS. DSfakeStatus, DSf reeStatus, DSgoodStatus , DSmaskStatus. FID, 
InvalidDA, 1CBZ. nCB. nDisks, nHeads, nSectors. nTracks, RetryCount], 

InlineDefs: FROM "inlinedefs" USING [BITAND, COPY, DIVMOD], 

MiscDefs: FROM "miscdefs", 

NucleusDefs: FROM "nucleusdef s" , 

ProcessDefs: FROM "processdef s" USING [Disablelnterrupts , Enablelnterrupts]; 

DEFINITIONS FROM DiskDefs; 

DisklO: PROGRAM EXPORTS DiskDefs, MiscDefs. NucleusDefs SHARES DiskDefs - BEGIN 

PageNumber: TYPE ■ AltoDefs .PageNumber; 

DISK: TYPE « AltoFileDefs .DISK; 

SN: TYPE = Al toFil eDef s .SN; 

vDA: TYPE » Al toFi 1 eDef s . vDA; 

vDC: TYPE = Al toFi 1 eDef s . vDC; 

DC: TYPE = DiskDefs. DC; 

DS: TYPE = DiskDefs. DS; 

CBptr: TYPE » DiskDefs .CBptr; 

CBZptr: TYPE « DiskDefs .CBZptr ; 

nil: POINTER = LOOPHOLE[0]; 

driveNumber: PUBLIC [0..1] <- 0; 

sysdisk: DISK ^ DISK[nDisks .nTracks , nHeads , nSectors] ; 

disk: POINTER TO DISK » 0sysdisk; 

Zero: PUBLIC PROCEDURE [p:POINTER. 1:CARDINAL] » 
BEGIN 

IF 1=0 THEN RETURN; pt <- 0; 
InlineDefs. COPY [from:p, to:p+l, nwords:l-l]; 
RETURN 
END; 

SetDisk: PUBLIC PROCEDURE [d:POINTER TO DISK] « 
BEGIN diskt <- dt; RETURN END; 

GetDisk: PUBLIC PROCEDURE RETURNS [POINTER TO DISK] - 
BEGIN RETURN[disk] END; 

ResetDisk: PUBLIC PROCEDURE RETURNS [POINTER TO DISK] ■ 
BEGIN 

diskt <r DISK[nDisks .nTracks .nHeads, nSectors]; 
RETURN[disk] 
END; 

VirtualDA: PUBLIC PROCEDURE [da:DA] RETURNS [vDA] » 
BEGIN 

RETURN[IF da «= DA[0 , , , .0] THEN Al toFileDef s . eofDA ELSE vDA [ 
((da.disk*disk. tracks+da. track)*disk .heads+ 
da,head)*disk. sectors+da. sector]]; 
END; 

RealDA: PUBLIC PROCEDURE [v:vDA] RETURNS [da:DA] « 
BEGIN 

i: CARDINAL ^ v; 
da ^ DA[0,0,0,0.0]; 
IF V # AltoFileDefs. eofDA THEN 

BEGIN 

[i , da. sector] ^ Inl ineDefs .DI\/MOD[i , disk, sectors]; 

[i. da. head] <- Inl ineDefs. DIVMOD[i .disk .heads] ; 

[i, da. track] *• Inl ineDefs .DIVMOD[i .disk, tracks]; 

[i, da. disk] ^ Inl ineDefs .DIVMOD[i .disk. disks] ; 

IF i j^ THEN da <- InvalidDA; 

END; 
RETURN 
END; 
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-- Disk transfer "process" 

DCseal: AUoDefs.BYTE - HOB; 

DCs: ARRAY vDC OF DC ■ [ 

DC[DCseal .DiskRead, DiskRead, DiskRead, 0,0], -- ReadHLD 

DC[DCseal .DiskCheck.DiskRead, DiskRead, 0,0], -- ReadLD 

DC[DCseal ,DiskCheck,DiskCheck, DiskRead, 0,0], -- ReadD 

DC[DCsea1 ,DiskWrite,DiskWrite,DiskWrite,0,0] , -- WriteHLD 

DC[DCseal ,DiskCheck,DiskWri te,DiskWrite,0,0] , -- WriteLD 

DC[DCsea1 ,DiskCheck,DiskCheck,DiskWrite,0 ,0] , -- WriteD 

DC[DCsea1 ,DiskCheck,DiskCheck,DiskCheck, 1,0] , -- SeekOnly 

DC[DCseal ,DiskCheck,DiskCheck,DiskCheck,0,0]]; -- DoNothing 

nextDiskCommand: POINTER TO CBptr ■ L00PH0LE[521B]; 
diskStatus: POINTER TO DS = L00PH0LE[522B]; 
lastDiskAddress: POINTER TO DA « LOOPHOLE[523B]; 
sectorlnterrupts: POINTER TO CARDINAL - L00PH0LE[524B] ; 

-- DoDiskCommand assumes that the version number in a FID (and 
-- in an FP) will never be used (is always one). It further 
-- assumes that if fp is nil (zero), a FreePageFID was meant; 
-- this allows the rest of the world to use short (3 word) FPs. 

FreePageFID: FID « FIDC-1,SNC1 ,1, 1,177778,-1]]; 

NonZeroWaitCell: WORD <- 1; 

waitCell: POINTER TO WORD <- QNonZeroWaitCell ; 

ResetWaitCell: PUBLIC PROCEDURE - 
BEGIN 

waitCell ^ QNonZeroWaitCel 1 ; 
END; 

SetWaitCell: PUBLIC PROCEDURE [p: POINTER TO WORD] RETURNS [preval : POINTER TO WORD] » 
BEGIN 

ProcessDefs.DisableInterrupts[]; 
preval ^ waitCell ; 
waitCell <- p; 

ProcessDef s.EnableInterrupts[]; 
RETURN; 
END; 

DoDiskCommand: PUBLIC PROCEDURE [arg:POINTER TO DiskDef s .DDC] - 
BEGIN OPEN arg; 
ptr, next, prev: CBptr; 
la: POINTER TO DL; 
zone: CBZptr « cb.zone; 
cb.headerAddress *- @cb. header; 
IF (la ^ cb.labelAddress) » nil THEN 

cb. labelAddress «- la ♦- 0cb. label;- 
cb,dataAddress <- ca; 

IF cb.normalWakeups = THEN cb . normalWakeups ^ zone.normalWakeups; 
IF cb.errorWakeups « THEN cb.errorWakeups ♦- zone.errorWakeups; 
IF fp « nil THEN la.filelD <- FreePageFID 
ELSE la.filelD *- FID[1 ,fp . serial ] ; 
la. page <- cb.page <- page; 

IF da j^ AltoFileDefs.fillinDA THEN cb . header . diskAddress *- RealDA[da]; 
IF restore THEN cb .header .diskAddress . restore ^ 1; 
cb. command ^ DCs[action]; 
cb. command. exchange <- driveNumber; 
prev «- PrevCB[zone]; 

-- Put the command on the disk controller's queue 
UNTIL waitCellt # DO NULL ENDLOOP; -- Wait for Trident to finish 
ProcessDef s .Disablelnterrupts[]; 
IF (next <- nexlDiskCommandt) # nil THEN 

BEGIN 

DO ptr <- next; next *- ptr.nextCB; 
IF next « nil THEN EXIT; 
ENDLOOP; 

ptr.nextCB <- cb; 

END; 
-- Take care of a possible race with disk controller. The disk 
-- may have gone idle (perhaps due to an error) even as we were 
-- adding a command to the chain. To make sure there was no 
-- error, we check the status of the previous cb in this zone. 
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IF nextDiskCommandt « nil THEN 
SELECT MaskDS[prev. status, DSmaskStatus] FROM 

DSfreeStatus, DSgoodStatus ■> nextDiskCommandt ^ cb; 

ENDCASE; 
ProcessDefs.EnableInterrupts[]; 
EnqueueCB[zone,cb]; 
RETURN 
END; 



-- Disk command block queue 

InitializeCBstorage: PUBLIC PROCEDURE [ 

zone:CBZptr, nCBs :CARDINAL, page:PageNumber, init:CBinit] ■ 

BEGIN 

cb: CBptr; 

i: CARDINAL; 

nq: CARDINAL « nCBs+1; 

length: CARDINAL » SIZE[CBZ]+nCBs*(SIZE[CB]+SIZE[CBptr]) ; 

queue: DESCRIPTOR FOR ARRAY OF CBptr <- 

DESCRIPTOR[0zone.queueVec,nq]; 
cbVector: DESCRIPTOR FOR ARRAY OF CB <- 

DESCRIPTOR[@zone.queueVec+SIZE[CBptr]*nq.nCBs]; 
IF init = clear THEN Zero[zone, length]; 
zone. currentPage ^ page; zone.cbQueue *- queue; 
zone.qTail ^ 0; zone.qHead ^ 1; 
queue[0] ^ NIL; -- end of queue; 
FOR i IN [L.nCBs] DO 

queue[i] ^ cb <- 0cbVector[i-l]; 

cb.zone <- zone; cb. status ♦- DSfreeStatus; 

ENDLOOP; 
RETURN 
END; 

NumCBs: PROCEDURE [zone:CBZptr] RETURNS [CARDINAL] « 
BEGIN 

RETURN[LENGTH[zone.cbQueue]-l] 
END; 

ClearCB: PROCEDURE [cb:CBptr] - 
BEGIN 

zone: CBZptr = cb.zone; 
Zero[cb,SIZE[CB]]; 
cb.zone ^ zone; 
RETURN 
END; 

EnqueueCB: PROCEDURE [zone:CBZptr , cb:CBptr] » 
BEGIN i: CARDINAL ^ zone.qTail; 
IF zone.cbQueue[i] # NIL THEN ERROR; 
zone.cbQueue[i] *- cb; 

IF (i ^ i+l) - LENGTH[zone.cbQueue] THEN i ^ 0; 
zone.qTail *- i; 
RETURN 
END; 

DequeueCB: PROCEDURE [zone:CBZptr] RETURNS Ccb:CBptr] » 
BEGIN i: CARDINAL <- zone.qHead; 
IF (cb ^ zone.cbOueue[i]) « NIL THEN ERROR; 
zone.cbQueue[i] <- NIL; 

IF (i <- i + 1) « LEN6TH[zone.cbOueue] THEN i ^ 0; 
zone.qHead ♦- i; 
RETURN 
END; 

PrevCB: PROCEDURE [zone:CBZptr] RETURNS [cb:CBptr] « 
BEGIN i: CARDINAL <- zone.qTail; 

i <- (IF i = THEN LENGTH[zone . cbQueue] ELSE i) ~ 1; 
IF (cb *- zone.cbQueue[i]) - NIL THEN ERROR; 
RETURN 
END; 

CleanupCBqueue: PUBLIC PROCEDURE [zonerCBZptr] « 
BEGIN 
cb: CBptr; 
UNTIL zone.cbQueue[zone.qHead] « NIL DO 
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cb ^ GetCB[zone,dontC1ear]; 

ENDLOOP; 
RETURN 
END; 

-- Removing CBs from the queue. If for some reason the disk has 
-- gone idle without executing the command, we fake an error 
-- in it so that the entire zone of CBs will get retryed. 

RetryableDiskError: PUBLIC SIGNAL [cb:CBptr] ■ CODE; 
UnrecoverableDiskError: PUBLIC SIGNAL [cb:CBptr] ■ CODE; 

MaskDS: PROCEDURE [DS, DS] RETURNS [DS] - L00PH0LE[In1 ineDef s.BITAND] ; 

GetCB: PUBLIC PROCEDURE [zone:CBZptr , init:CBinit] RETURNS [cb:CBptr] - 
BEGIN 

s:DS; da:vDA; ddc:DDC; ec:CARDINAL; 
cb ♦- DequeueCB[zone]; 
UNTIL cb. status. done ^ DO 

-- not zero means done or fake or free 
IF nextDiskCommandt » nil 
AND cb. status. done » THEN 
cb. status <r DSfakeStatus; 
ENDLOOP; 
cb. command. seal <- 0; -- remove command seal 
s <- MaskDS[cb. status, DSmaskStatus]; 
SELECT s FROM 
DSgoodStatus »> 
BEGIN 

IF cb. header. diskAddress.restore«0 THEN 
BEGIN 

zone.errorCount ♦- 0; 

zone.currentBytes <- cb.labelAddress. bytes; 
IF zone. cleanup # LOOPHOLE[0] THEN zone.cleanup[cb]; 
END; 
IF init « clear THEN ClearCB[cb]; 
END; 
DSfreeStatus => 

ClearCB[cb]; -- really means DSneverBeenUsed 
ENDCASE »> 

BEGIN -- some error occurred 

-- busy wait until disk controller is idle 

UNTIL nextDiskCommandt = nil DO NULL ENDLOOP; 

ec ^ zone.errorCount ♦- zone.errorCount+1 ; 

IF ec >« RetryCount THEN ERROR UnrecoverableDiskError[cb]; 

da ♦- zone.errorDA ♦- VirtualDA[cb. header . diskAddress]; 

IF cb. status. finalStatus « CheckError THEN zone.checkError <- TRUE; 

Initial izeCBstorage [ 

zone, NumCBs[ zone] , cb. page.dontClear] ; 
IF ec > RetryCount/2 THEN 

BEGIN -- start a restore before signalling the error 
lastDiskAddresst 4- invalidDA; 

ddc <- DDC[GetCB[zone, clear], nil , da, 0, NIL, TRUE, SeekOnly]; 
DoDiskCommand[0ddc]; 
END; 
ERROR RetryableDiskError[cb]; 
END; 
RETURN 
END; 

-- Don't all Cleanup procedures need to be locked? 
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-- Segment swapper 

-- Note that each CB is used twice: first to hold the disk label 
-- for page i-1, and then to hold the DCB for page i. It isn't 
-- reused until the DCB for page i-1 is correctly done, which 
-- is guaranteed to be after the disk label for page i-1 is no 
-- longer needed, since things are done strictly sequentially by 
-- page number. 

-- Currently, DiskRequest.lastAction is not used by SwapPages. 

DiskCheckError: PUBLIC SIGNAL [page: PageNumber] ■ CODE; 

SwapPages: PUBLIC PROCEDURE [arg:POINTER TO swap DiskDef s.DiskRequest] 
RETURNS [PageNumber, CARDINAL] - 
BEGIN OPEN arg; 
i: PageNumber; 
cb, nextcb: CBptr; 

cbzone: ARRAY [0..1CBZ) OF UNSPECIFIED; 
zone: CBZptr ■ 0cbzone[O]; 

ddc: DiskDefs.DDC ♦- DiskDef s .DDC[ ,ca,dat, ,fp , FALSE , action] ; 
InitializeCBstorage[zone,nCB,firstPage, clear]; 
IF desc # NIL THEN 

BEGIN zone. info <- desc; 
zone. cleanup <- GetDiskPageDesc; 
END; 
BEGIN 

ENABLE RetryableDiskError --[cb]-- ■> 
BEGIN 

ddc. da <- zone.errorDA; 
ddc.ca <- cb.dataAddress; 
RETRY END; 
cb ^ GetCB[zone, clear]; 

FOR i ♦- zone.currentPage. i+1 UNTIL i«lastPage+l DO 
IF ddc. da - Al toFileDef s .eofDA THEN EXIT; 
IF signalCheckError AND zone.errorCount = RetryCount/2 

THEN SIGNAL DiskCheckError[i] ; 
nextcb ^ GetCB[zone, clear]; 

cb. labelAddress <- LOOPHOLE[@nextcb. header .diskAddress]; 
ddc.cb <- cb; ddc. page <- i; 

IF i # zone.currentPage THEN ddc. da <- AltoFileDef s.f il linDA; 
DoDiskCommand[0ddc] ; 

IF -fixedCA THEN ddc.ca <- ddc.ca+Al toDefs.PageSize; 
cb ^ nextcb; 
ENDLOOP; 
CleanupCBqueue[zone]; 
END; -- of enable block 
RETURN[i-l.zone.currentBytes] 
END; 

GetDiskPageDesc: PROCEDURE [cb:CBptr] - 
BEGIN 

la: POINTER TO DL = cb . 1 abelAddress ; 
desc: POINTER TO DiskPageDesc ♦- cb. zone, info; 
desct 4- DiskPageDesc [ 

VirtualDA[la.prev], 

\/irtualDA[cb. header. diskAddress], 

VirtualDA[la.next] , 

la. page, la. bytes]; 
RETURN 
END; 

END.. 



